home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok63 / m2ced / txt.lha / Config.mod < prev    next >
Text File  |  1991-11-13  |  2KB  |  92 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    Config.mod
  4.     :Contents.   Configuration of M2CED
  5.     :Author.     Steffen Reith
  6.     :Address.    Hessenstr. 64, D-8700 Wuerzburg
  7.     :Phone.      None
  8.     :Copyright.  Shareware
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga A+L V3.2d
  11.     :Imports.    req,Msg
  12.     :History.    V1.0 18.June 1990
  13.     :History.    V1.1 6 Nov.  1990
  14.  
  15. **********************************************************************)
  16. (*$ StackParms:=FALSE Volatile:=FALSE CaseChk:=FALSE *)
  17. (*$ StackChk:=FALSE RangeChk:=FALSE OverflowChk:=FALSE NilChk:=FALSE *)
  18. IMPLEMENTATION MODULE Config;
  19.  
  20. FROM DosD   IMPORT FileHandlePtr,oldFile,newFile;
  21. FROM DosL   IMPORT Open,Close,Read,Write;
  22. FROM SYSTEM IMPORT ADR,ADDRESS;
  23. FROM Msg    IMPORT TitleMsg;
  24. FROM req    IMPORT PathType;
  25.  
  26. CONST Restart='S:M2CED.restart';
  27.  
  28. PROCEDURE ReadConfig(VAR Parameters:P); (* Prg-configuration lesen *)
  29.  
  30. VAR Dummy:LONGINT;
  31.     File:FileHandlePtr;
  32.  
  33. BEGIN
  34.  File:=Open(ADR(ConfigFile),oldFile);
  35.  IF File#NIL THEN
  36.   Dummy:=Read(File,ADR(Parameters),SIZE(P));
  37.   Close(File)
  38.  ELSE
  39.   WITH Para DO
  40.    Window:=WindowDefault;
  41.    ContMsg:=ContMsgDefault;
  42.    CompilerName:=CompilerNameDefault;
  43.    LinkerName:=LinkerNameDefault;
  44.    OptimizerName:=OptimizerNameDefault;
  45.    compileN:=compileDefault;
  46.    linkN:=linkDefault;
  47.    startN:=startDefault;
  48.    optN:=optDefault;
  49.    loadN:=loadDefault;
  50.    findErrorN:=findErrorDefault;
  51.    cancelN:=cancelDefault;
  52.    continueN:=continueDefault
  53.   END
  54.  END
  55. END ReadConfig;
  56.  
  57. PROCEDURE WriteFile(VAR File:PathType;OffSet:LONGINT);
  58.  
  59. VAR FileHandle:FileHandlePtr;
  60.     Dummy:LONGINT;
  61.  
  62. BEGIN
  63.  FileHandle:=Open(ADR(Restart),newFile);
  64.  IF FileHandle#NIL THEN
  65.   Dummy:=Write(FileHandle,ADR(File),SIZE(PathType));
  66.   Dummy:=Write(FileHandle,ADR(OffSet),SIZE(OffSet));
  67.   Close(FileHandle)
  68.  ELSE
  69.   TitleMsg('Kann Restartfile nicht schreiben')
  70.  END
  71. END WriteFile;
  72.  
  73. PROCEDURE ReadFile (VAR File:PathType;VAR OffSet:LONGINT);
  74.  
  75. VAR FileHandle:FileHandlePtr;
  76.     Dummy:LONGINT;
  77.  
  78. BEGIN
  79.  FileHandle:=Open(ADR(Restart),oldFile);
  80.  IF FileHandle#NIL THEN
  81.   Dummy:=Read(FileHandle,ADR(File),SIZE(PathType));
  82.   Dummy:=Read(FileHandle,ADR(OffSet),SIZE(OffSet));
  83.   Close(FileHandle)
  84.  ELSE
  85.   TitleMsg('Kann Restartfile nicht finden')
  86.  END
  87. END ReadFile;
  88.  
  89. BEGIN
  90.  ReadConfig(Para);
  91. END Config.
  92.